Введение

Эта работа по обработке данных из опроса про салат Оливье.

Подготовка данных

После того, как я переименовал вопросы, можно загрузить данные:

df <- read_csv("data/questionary.csv")

Уберем дупликаты:

df %>% 
  select(-time, -mail) %>% 
  distinct() ->
  df
df

Ух ты всего 51 ответ, одинаковый с каким-то другим. Убираем, вдруг это какая-то повторная отправка — пол процента вряд ли нам что-то где-то поменяют.

Вот так распределены категории:

library(inspectdf)
df %>% 
  inspect_cat() %>% 
  show_plot()+
  labs(caption = "Г. А. Мороз, 2019. Создано при помощи пакета inspectdf.")

На некоторые вопросы в анкете можно было ответить несколькими способами, и все такие ответы гуглформа записывала через запятую. В связи с этим нужно отредактировать некоторые ответы, в которых уже была запятая. Кроме того, я соединю в один столбец переменную region, place и переведу все в длинный формат (каждый ответ – отдельная строка).

df %>% 
  select(-ingredients_by_user, -recipe) %>% 
  mutate(id = 1:n(),
         region = paste0(ru_region, be_region, uk_region, ka_region),
         place = paste0(ru_place, be_place, uk_place, ka_place),
         region = str_remove_all(region, "NA"),
         place = str_remove_all(place, "NA")) %>%
  select(-ru_region, -be_region, -uk_region, -ka_region, -ru_place, -be_place, -uk_place, -ka_place) %>% 
  gather(question, answer, c(statements, potato:seasoning)) %>% 
  arrange(id, question) %>% 
  mutate(answer = str_replace(answer, "нет, не", "нет не"),
         answer = str_remove(answer, "\\(яйца, масло, лимонный сок, соль, сахар, горчица\\)")) ->
  df
df

Сейчас ответы каждого респондента на каждый из вопросов находиться в отдельной строке, выделим теперь каждый ответ (т. е. те, которые гугл записывал через запятую) в отдельную строку.

df %>% 
  count(str_count(answer, ", "))
df %>% 
  separate(col = answer, sep = ", ", into = c("ans_1", "ans_2", "ans_3", "ans_4", "ans_5", "ans_6", "ans_7", "ans_8")) %>% 
  pivot_longer(ans_1:ans_8, names_to = "answer_id", values_to = "answer") %>% 
  filter(!is.na(answer)) %>% 
  arrange(id, question, answer_id) %>% 
  mutate(answer_id = as.integer(str_remove(answer_id, "ans_")),
         answer = str_replace(answer, "нет не", "нет, не")) ->
  df
df

Так как Республика Крым появляется в списках российских (25 раз) и украинских (43 раза) регионов, то мы решили отнести этот регион к Украине:

df %>% 
  mutate(region = str_replace(region, "Автономная Республика Крым", "Республика Крым"),
         country = if_else(region == "Республика Крым", "Россия", country)) ->
  df

Аналогично про Севастополь (в российском списке 4 раза, в украинском списке — 20):

df %>% 
  mutate(region = str_replace(region, "Город Севастополь", "Севастополь"),
         country = if_else(region == "Севастополь", "Россия", country)) ->
  df

Теперь после очистки данных (осталось 8599 респондентов), можно подойти к решению двух вопросов:

Рассказать больше про данные

Вот так наши наблюдения распределены по странам (показаны только страны, где больше 2 ответов):

df %>% 
  distinct(id, country) %>% 
  count(country) %>% 
  filter(n>2) %>% 
  mutate(country = reorder(country, n)) %>% 
  ggplot(aes(country, n))+
  geom_col(fill = "lightblue")+
  coord_flip()+
  scale_y_log10()+
  labs(y = "количество ответов (шкала логорифмирована)", x = "",
       caption = "Г. А. Мороз, 2019. Создано при помощи пакета ggplot2.")

Вот так наши наблюдения распределены по полу и возрасту (показаны только те комбинации пола и возраста, где ответов больше 2):

df %>% 
  distinct(id, age, gender) %>% 
  count(age, gender) %>% 
  filter(n>2) %>% 
  ggplot(aes(age, n))+
  geom_col(fill = "lightblue")+
  facet_wrap(~gender)+
  labs(y = "количество ответов", x = "возраст",
       caption = "Г. А. Мороз, 2019. Создано при помощи пакета ggplot2.")

Вот так наши наблюдения распределены по регионам:

На этой карте нарисованы все регионы, которые мы рассматриваем, цветом отображается количество ответов. Города вынесены отдельно, так как составляют отдельную административную единицу, и будут не видны, если отдельно не показать значения. Видно, что из всех регионов по сравнению с Москвой (1245) и Санкт-Петербургом (813) достаточно мало ответов.

Типичный Оливье

df %>% 
  count(question, answer) %>% 
  arrange(question, desc(n)) %>% 
  group_by(question) %>% 
  mutate(id = 1:n()) %>% 
  filter(id == 1)

Как видим, самые частые ответы:

df %>% 
  filter(answer_id == 1) %>% 
  mutate(answer = str_replace(answer, "нет, не нужно", "0"),
         answer = ifelse(question == "potato" & answer != "0", 
                         str_replace(answer, ".*", "1"), 
                         answer),
         answer = ifelse(question == "carrot" & answer != "0", 
                         str_replace(answer, ".*", "1"), 
                         answer),
         answer = ifelse(question == "egg" & answer != "0", 
                         str_replace(answer, ".*", "1"), 
                         answer),
         answer = ifelse(question == "cucumber", 
                         str_replace(answer, "(маринованные корнишоны)|(маринованные огурцы)|(соленые огурцы)", "маринованные/соленые огурцы"), 
                         answer),
         answer = ifelse(question == "onion" & answer != "0", 
                         str_replace(answer, ".*", "1"), 
                         answer),
         answer = ifelse(question == "greens" & answer != "0", 
                         str_replace(answer, ".*", "1"), 
                         answer)) %>% 
  pivot_wider(names_from = question, values_from = answer) %>% 
  mutate(fresh_cucumber = ifelse(cucumber == "обычные свежие огурцы", "1", "0"),
         pickle = ifelse(cucumber == "маринованные/соленые огурцы", "1", "0"),
         haricot = ifelse(str_detect(peas, "фасоль"), "1", "0"),
         fresh_pea = ifelse(str_detect(peas, "свежий зеленый горошек"), "1", "0"),
         pickled_pea = ifelse(str_detect(peas, "маринованный горошек"), "1", "0"),
         mayonnaise = ifelse(str_detect(seasoning, "майонез"), "1", "0"),
         ham = ifelse(str_detect(meat_fish, "ветчина"), "1", "0"),
         beef = ifelse(str_detect(meat_fish, "говядина"), "1", "0"),
         sausage = ifelse(str_detect(meat_fish, "колбаса"), "1", "0"),
         chicken = ifelse(str_detect(meat_fish, "курица"), "1", "0"),
         no_meat = ifelse(str_detect(meat_fish, "нет, не надо класть"), "1", "0"),
         other_flesh = ifelse(str_detect(meat_fish, "(икра)|(лосось)|(маринованные грибы)|(свинина)|(сервелат)|(сосиски)|(язык (говяжий или свиной))"), "1", "0")) ->
  ingridients

ingridients %>% 
  select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
  mutate_all(as.integer) %>% 
  group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
  mutate(n = n()) %>% 
  filter(n >= 50) %>% 
  select(-n) %>% 
  as.data.frame()->
  ingredients_transformed

colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")

olivier_recipe_plot <- function(input_df, 
                                freq_max = 100, 
                                title = NULL, 
                                nudge = 2,
                                pad = "\n\n\n\n\n"){

# input_df <- ingredients_transformed
input_df %>% 
  group_by_all() %>% 
  count() %>% 
  ungroup() %>% 
  arrange(desc(n)) %>% 
  filter(n > {{freq_max}}) %>% 
  mutate(id = 1:n()) ->
  input_df_filtered
  
input_df_filtered %>% 
  select(-n, -id) %>% 
  colSums() %>% 
  sort(decreasing = TRUE) %>% 
  names() ->
  levels

input_df_filtered %>% 
  pivot_longer(-c(id, n), names_to = "variable", values_to = "value") %>% 
  mutate(variable = factor(variable, levels = levels)) %>% 
  ggplot(aes(id, variable, color = as.factor(value)))+
  geom_point(show.legend = FALSE)+
  scale_color_manual(values = c("grey90", "black"))+
  labs(x = "",  y = "", caption = "Г. А. Мороз, 2019. Создано при помощи пакета ggplot2.")+
  xlim(0.5, nrow(input_df_filtered)+0.5)+
  theme(axis.title.x=element_blank(),
        axis.text.x=element_blank(),
        axis.ticks.x=element_blank()) ->
  p1

input_df_filtered %>% 
  ggplot(aes(id, n, label = n))+
  geom_col()+
  geom_text(nudge_y = nudge)+
  labs(x = "", y = pad,
       title = title)+
  xlim(0.5, nrow(input_df_filtered)+0.5)+
  theme(axis.title.x=element_blank(),
        axis.text.x=element_blank(),
        axis.ticks.x=element_blank())->
  p2

plot(gridExtra::arrangeGrob(p2, p1, nrow = 2))
}

olivier_recipe_plot(ingredients_transformed, freq_max = 50, nudge = 20)

Из 796 уникальных рецептов, которые были собраны, мы выбрали те, что встречались больше 50 раз. Каждый столбец — это уникальный рецепт. Столбик сверху сообщает сколько раз встретился такой рецепт. Жирная точка обозначает, что данный ингридиент входит в данный рецепт.

Можно посмотреть на типичные рецепты по странам. Россия:

По странам

Россия

ingridients %>% 
  filter(country == "Россия") %>% 
  select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
  mutate_all(as.integer) %>% 
  group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
  mutate(n = n()) %>% 
  filter(n > 40) %>% 
  select(-n) %>% 
  as.data.frame()->
  ingredients_transformed

colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")

olivier_recipe_plot(ingredients_transformed, freq_max = 50, title = "Россия")

Украина

ingridients %>% 
  filter(country == "Украина") %>% 
  select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
  mutate_all(as.integer) %>% 
  group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
  mutate(n = n()) %>% 
  filter(n >= 5) %>% 
  select(-n) %>% 
  as.data.frame()->
  ingredients_transformed

colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")

olivier_recipe_plot(ingredients_transformed, freq_max = 5, title = "Украина")

Белоруссия

ingridients %>% 
  filter(country == "Белоруссия") %>% 
  select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
  mutate_all(as.integer) %>% 
  group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
  mutate(n = n()) %>% 
  filter(n >= 4) %>% 
  select(-n) %>% 
  as.data.frame()->
  ingredients_transformed

colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")

olivier_recipe_plot(ingredients_transformed, freq_max = 4, title = "Белоруссия")

Казахстан

ingridients %>% 
  filter(country == "Казахстан") %>% 
  select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
  mutate_all(as.integer) %>% 
  group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
  mutate(n = n()) %>% 
  filter(n >= 4) %>% 
  select(-n) %>% 
  as.data.frame()->
  ingredients_transformed

colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")

olivier_recipe_plot(ingredients_transformed, freq_max = 4, title = "Казахстан")

ingridients %>% 
  select(country, carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
  group_by(country, carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
  summarise(n = n()) %>% 
  group_by(country) %>% 
  mutate(max = max(n)) %>% 
  filter(n == max) %>% 
  arrange(desc(n)) %>% 
  select(country, n)

В разных страннах мы нашли разное количество разных рецептов (в данном случае рецепт – набор ингредиентов): в России – 288, в Украине – 27, в Белоруссии – 25, в Казахстане – 11. Самые популярные рецепты в этих странах содержат:

  • марковку,
  • мариновонные/консервированные огурцы
  • яйцо
  • не содержало зелени
  • колбасу
  • лук (кроме Белоруссии)
  • консервированный горошек
  • картошка
  • майонез

По регионам

Мы выбрали регионы, где ответов больше 10:

Бе:Могилёвская область

ingridients %>%
filter(region == 'Могилёвская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Могилёвская область")

Бе:Минская область

ingridients %>%
filter(region == 'Минская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Минская область")

Бе:Витебская область

ingridients %>%
filter(region == 'Витебская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Витебская область")

Бе:Гродненская область

ingridients %>%
filter(region == 'Гродненская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Гродненская область")

Бе:Гомельская область

ingridients %>%
filter(region == 'Гомельская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Гомельская область")

Бе:Брестская область

ingridients %>%
filter(region == 'Брестская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Брестская область")

Бе:Минск

ingridients %>%
filter(region == 'Минск') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Минск")

Ка:Восточно-Казахстанская область

ingridients %>%
filter(region == 'Восточно-Казахстанская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Восточно-Казахстанская область")

Ка:Костанайская область

ingridients %>%
filter(region == 'Костанайская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Костанайская область")

Ка:Павлодарская область

ingridients %>%
filter(region == 'Павлодарская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Павлодарская область")

Ка:Карагандинская область

ingridients %>%
filter(region == 'Карагандинская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Карагандинская область")

Ка:Алма-Ата

ingridients %>%
filter(region == 'Алма-Ата') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Алма-Ата")

Ро:Кабардино-Балкарская Республика

ingridients %>%
filter(region == 'Кабардино-Балкарская Республика') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Кабардино-Балкарская Республика")

Ро:Республика Дагестан

ingridients %>%
filter(region == 'Республика Дагестан') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Республика Дагестан")

Ро:Республика Адыгея

ingridients %>%
filter(region == 'Республика Адыгея') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Республика Адыгея")

Ро:Республика Хакасия

ingridients %>%
filter(region == 'Республика Хакасия') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Республика Хакасия")

Ро:Сахалинская область

ingridients %>%
filter(region == 'Сахалинская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Сахалинская область")

Ро:Республика Марий Эл

ingridients %>%
filter(region == 'Республика Марий Эл') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Республика Марий Эл")

Ро:Камчатский край

ingridients %>%
filter(region == 'Камчатский край') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Камчатский край")

Ро:Севастополь

ingridients %>%
filter(region == 'Севастополь') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Севастополь")

Ро:Костромская область

ingridients %>%
filter(region == 'Костромская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Костромская область")

Ро:Орловская область

ingridients %>%
filter(region == 'Орловская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Орловская область")

Ро:Амурская область

ingridients %>%
filter(region == 'Амурская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Амурская область")

Ро:Республика Саха (Якутия)

ingridients %>%
filter(region == 'Республика Саха (Якутия)') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Республика Саха (Якутия)")

Ро:Липецкая область

ingridients %>%
filter(region == 'Липецкая область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Липецкая область")

Ро:Республика Мордовия

ingridients %>%
filter(region == 'Республика Мордовия') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Республика Мордовия")

Ро:Калужская область

ingridients %>%
filter(region == 'Калужская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Калужская область")

Ро:Курская область

ingridients %>%
filter(region == 'Курская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Курская область")

Ро:Республика Бурятия

ingridients %>%
filter(region == 'Республика Бурятия') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Республика Бурятия")

Ро:Забайкальский край

ingridients %>%
filter(region == 'Забайкальский край') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Забайкальский край")

Ро:Астраханская область

ingridients %>%
filter(region == 'Астраханская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Астраханская область")

Ро:Ямало-Ненецкий автономный округ

ingridients %>%
filter(region == 'Ямало-Ненецкий автономный округ') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Ямало-Ненецкий автономный округ")

Ро:Псковская область

ingridients %>%
filter(region == 'Псковская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Псковская область")

Ро:Республика Карелия

ingridients %>%
filter(region == 'Республика Карелия') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Республика Карелия")

Ро:Курганская область

ingridients %>%
filter(region == 'Курганская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Курганская область")

Ро:Ульяновская область

ingridients %>%
filter(region == 'Ульяновская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Ульяновская область")

Ро:Чувашская Республика – Чувашия

ingridients %>%
filter(region == 'Чувашская Республика – Чувашия') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Чувашская Республика – Чувашия")

Ро:Ивановская область

ingridients %>%
filter(region == 'Ивановская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Ивановская область")

Ро:Тамбовская область

ingridients %>%
filter(region == 'Тамбовская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Тамбовская область")

Ро:Пензенская область

ingridients %>%
filter(region == 'Пензенская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Пензенская область")

Ро:Новгородская область

ingridients %>%
filter(region == 'Новгородская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Новгородская область")

Ро:Смоленская область

ingridients %>%
filter(region == 'Смоленская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Смоленская область")

Ро:Калининградская область

ingridients %>%
filter(region == 'Калининградская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Калининградская область")

Ро:Владимирская область

ingridients %>%
filter(region == 'Владимирская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Владимирская область")

Ро:Рязанская область

ingridients %>%
filter(region == 'Рязанская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Рязанская область")

Ро:Кировская область

ingridients %>%
filter(region == 'Кировская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Кировская область")

Ро:Республика Коми

ingridients %>%
filter(region == 'Республика Коми') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Республика Коми")

Ро:Тюменская область

ingridients %>%
filter(region == 'Тюменская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Тюменская область")

Ро:Хабаровский край

ingridients %>%
filter(region == 'Хабаровский край') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Хабаровский край")

Ро:Белгородская область

ingridients %>%
filter(region == 'Белгородская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Белгородская область")

Ро:Приморский край

ingridients %>%
filter(region == 'Приморский край') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Приморский край")

Ро:Брянская область

ingridients %>%
filter(region == 'Брянская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Брянская область")

Ро:Мурманская область

ingridients %>%
filter(region == 'Мурманская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Мурманская область")

Ро:Республика Крым

ingridients %>%
filter(region == 'Республика Крым') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Республика Крым")

Ро:Тульская область

ingridients %>%
filter(region == 'Тульская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Тульская область")

Ро:Удмуртская Республика

ingridients %>%
filter(region == 'Удмуртская Республика') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Удмуртская Республика")

Ро:Томская область

ingridients %>%
filter(region == 'Томская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Томская область")

Ро:Ленинградская область

ingridients %>%
filter(region == 'Ленинградская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Ленинградская область")

Ро:Иркутская область

ingridients %>%
filter(region == 'Иркутская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Иркутская область")

Ро:Алтайский край

ingridients %>%
filter(region == 'Алтайский край') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Алтайский край")

Ро:Тверская область

ingridients %>%
filter(region == 'Тверская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Тверская область")

Ро:Ханты-Мансийский автономный округ – Югра

ingridients %>%
filter(region == 'Ханты-Мансийский автономный округ – Югра') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Ханты-Мансийский автономный округ – Югра")

Ро:Ярославская область

ingridients %>%
filter(region == 'Ярославская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Ярославская область")

Ро:Омская область

ingridients %>%
filter(region == 'Омская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Омская область")

Ро:Кемеровская область

ingridients %>%
filter(region == 'Кемеровская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Кемеровская область")

Ро:Вологодская область

ingridients %>%
filter(region == 'Вологодская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Вологодская область")

Ро:Ставропольский край

ingridients %>%
filter(region == 'Ставропольский край') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Ставропольский край")

Ро:Архангельская область

ingridients %>%
filter(region == 'Архангельская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Архангельская область")

Ро:Оренбургская область

ingridients %>%
filter(region == 'Оренбургская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Оренбургская область")

Ро:Волгоградская область

ingridients %>%
filter(region == 'Волгоградская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Волгоградская область")

Ро:Красноярский край

ingridients %>%
filter(region == 'Красноярский край') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Красноярский край")

Ро:Воронежская область

ingridients %>%
filter(region == 'Воронежская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Воронежская область")

Ро:Саратовская область

ingridients %>%
filter(region == 'Саратовская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Саратовская область")

Ро:Республика Татарстан

ingridients %>%
filter(region == 'Республика Татарстан') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Республика Татарстан")

Ро:Нижегородская область

ingridients %>%
filter(region == 'Нижегородская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Нижегородская область")

Ро:Республика Башкортостан

ingridients %>%
filter(region == 'Республика Башкортостан') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Республика Башкортостан")

Ро:Пермский край

ingridients %>%
filter(region == 'Пермский край') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Пермский край")

Ро:Новосибирская область

ingridients %>%
filter(region == 'Новосибирская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Новосибирская область")

Ро:Краснодарский край

ingridients %>%
filter(region == 'Краснодарский край') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Краснодарский край")

Ро:Самарская область

ingridients %>%
filter(region == 'Самарская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Самарская область")

Ро:Ростовская область

ingridients %>%
filter(region == 'Ростовская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Ростовская область")

Ро:Челябинская область

ingridients %>%
filter(region == 'Челябинская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Челябинская область")

Ро:Свердловская область

ingridients %>%
filter(region == 'Свердловская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Свердловская область")

Ро:Московская область

ingridients %>%
filter(region == 'Московская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Московская область")

Ро:Санкт-Петербург

ingridients %>%
filter(region == 'Санкт-Петербург') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Санкт-Петербург")

Ро:Москва

ingridients %>%
filter(region == 'Москва') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Москва")

Ук:Черниговская область

ingridients %>%
filter(region == 'Черниговская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Черниговская область")

Ук:Запорожская область

ingridients %>%
filter(region == 'Запорожская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Запорожская область")

Ук:Одесская область

ingridients %>%
filter(region == 'Одесская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Одесская область")

Ук:Луганская область

ingridients %>%
filter(region == 'Луганская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Луганская область")

Ук:Харьковская область

ingridients %>%
filter(region == 'Харьковская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Харьковская область")

Ук:Днепропетровская область

ingridients %>%
filter(region == 'Днепропетровская область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Днепропетровская область")

Ук:Киев

ingridients %>%
filter(region == 'Киев') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Киев")

Ук:Донецкая область

ingridients %>%
filter(region == 'Донецкая область') %>%
select(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate_all(as.integer) %>% 
group_by(carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
mutate(n = n()) %>% 
filter(n >= 1) %>% 
select(-n) %>% 
as.data.frame()-> 
ingredients_transformed


colnames(ingredients_transformed) <- c("морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез")


olivier_recipe_plot(ingredients_transformed, freq_max = 0, title = "Донецкая область")

Обобщение по регионам

Мы отфильтровали наиболее популярные рецепты в каждой из областей и оставили только те рецепты, которые дали более 5 человек из данной области:

ingridients %>% 
  group_by(country, region, carrot, fresh_cucumber, pickle, egg, greens, ham, beef, sausage,  chicken, other_flesh, no_meat, onion, fresh_pea, pickled_pea, potato, mayonnaise) %>% 
  summarise(n = n()) %>% 
  group_by(country, region) %>% 
  mutate(max = max(n)) %>% 
  filter(region != "",
         n == max,
         n >= 5) %>% 
  select(-max) %>% 
  group_by(country, region, n) %>% 
  mutate(id = 1:n(),
         id = ifelse(id == 1, "", id)) %>% 
  mutate(x = paste(str_sub(country, 1, 2), region, id)) %>% 
  select(-id) %>% 
  ungroup() %>% 
  arrange(x, n) ->
  max_ingridients

colnames(max_ingridients) <- c("country", "region",  "морковка", "свежие огурцы", "мар./сол. огурцы", "яйца", "зелень", "ветчина", "говядина", "колбаса", "курица","др. мясо/рыба","без мяса", "лук", "свежий горошек", "конс. горошек", "картошка", "майонез", "n", "x")

max_ingridients %>% 
  select(-country, -region, -n, -x) %>% 
  mutate_all(as.integer) %>% 
  colSums() %>% 
  sort(decreasing = TRUE) %>% 
  names() ->
  levels

max_ingridients %>% 
  pivot_longer(-c(country, region, n, x), names_to = "variable", values_to = "value") %>% 
  mutate(variable = factor(variable, levels = levels)) %>% 
  ggplot(aes(x, variable, color = as.factor(value)))+
  geom_point(show.legend = FALSE)+
  scale_color_manual(values = c("grey90", "black"))+
  labs(x = "",  y = "", caption = "Г. А. Мороз, 2019. Создано при помощи пакета ggplot2.")+
  theme(axis.text.x = element_text(angle = 90, hjust = 1)) ->
  p1

max_ingridients %>% 
  select(x, n) %>% 
  ggplot(aes(x, n, label = n))+
  geom_col()+
  geom_text(nudge_y = 1) + 
  labs(x = "", y = "\n\n\n\n\n",
       title = "Самые частые рецепты для каждого региона")+
  theme(axis.title.x=element_blank(),
        axis.text.x=element_blank(),
        axis.ticks.x=element_blank())->
  p2
plot(gridExtra::arrangeGrob(p2, p1, nrow = 2))

Видимо, основное ядро оливье во всех областях составляют: яйца, консервированный горошек, майонез, мар./сол. огурцы и морковка, а основная вариативность приходиться на колбасу vs. курицу vs. ветчину, на то, класть ли лук, и на то, класть ли зелень.

Паттерны

Картофель

trashold <- 10

Данных достаточно много, так как достаточно много категорий. Однако насколько мы можем верить этим неблюдениям? Есть случаи, когда из региона у нас всего 5 ответов, а есть регионы, где ответов очень много. Мы введем некоторый порог в 10 наблюдений.

df %>% 
  filter(question == "potato") %>% 
  count(answer, country, age, gender) %>% 
  filter(n >= trashold) %>% 
  ggplot(aes(age, n, color = answer))+
  geom_point()+
  geom_smooth(se = FALSE)+
  facet_grid(country~gender, scales = "free_y")

По оси x – возраст, по оси y – количество ответов, цветом обозначен тип ответа. Видно, что соревнуются ответы “белый картофель” и “все равно какой”, а где-то внизу “молодой картофель”. Но мне кажется разница между этими ответами не так значима: не то чтобы получилось, что, например, много людей считает, что не нужно класть картофель. Также мы видим, что тенденцию по возрасту можно наблюдать лишь на данных из России, так как люди из других стран все же малопредсатвлены. Еще видно, что люди, ответившие в графе пол “другое”, к сожалению, тоже не выдерживают нашего порога.

Морковь

df %>% 
  filter(question == "carrot") %>% 
  count(answer, country, age, gender) %>% 
  filter(n >= trashold) %>% 
  ggplot(aes(age, n, color = answer))+
  geom_point()+
  geom_smooth(se = FALSE)+
  facet_grid(country~gender, scales = "free_y")

Вот здесь уже интересно: большинство людей считает, что нужно класть “вареную морковь”, а на втором месте стоит ответ “нет, не нужно”. Мы видим, что разрыв между разными вариантами ответов (синими и красными точками) во всех случаях, когда достаточно данных, сохраняется. При этом доли ответа “вареная морковка” достаточно высоки во всех странах кроме Украины, где она побеждает ответ “нет, не нужно”, но с заметно меньшим перевесом. В Казахстане и Белоруссии еще меньше данных, но, тенденция обратная – вариант “вареная морковь” встречается значительно чаще других. Возраст, в отличие от предыдущего графика играет роль: лишь люди от 15 до 35 считают, что можно не класть в салат морковь, в остальных случаях можно было бы предположить, что нам просто не хватает данных, однако все же у нас достаточно много наблюдений от людей старше 35, и тот факт, что среди них все предпочитают класть вареную морковку.

Может быть что-то увидиться на карте регионов?

olivier_plot <- function(question, answers, baseline = "", thrashold = 0, title, user_df = df, map_df = final_df){
user_df %>% 
  filter(question == {{ question }},
         str_detect(answer, {{ answers }}),
         str_detect(country, "Россия|Украина|Белоруссия|Казахстан")) %>% 
  count(country, region, answer) %>% 
  group_by(region) %>% 
  mutate(total = sum(n),
         ratio = round((n/total)*100)) %>%
  select(-n) %>% 
  spread(answer, ratio, fill = 0) %>% 
  gather(answer, ratio, -c(1:3)) %>% 
  filter(answer == baseline) %>% 
  full_join(map_df) %>% 
  mutate(long = ifelse(long < 0, long + 360, long)) ->
  for_plot

for_plot %>% 
  select(-lat, -long, -group) %>% 
  filter(str_detect(region, "Нур-Султан|Москва|Санкт-Петербург|Киев$|Минск$|Севастополь|Алма-Ата|Шымкент")) %>% 
  distinct() %>% 
  as.data.frame() %>% 
  cbind(data.frame(group = 1:8,
         long = c(18, # Минск
                  95, # Алма-Ата
                  99, # Нур-Султан
                  80, # Шыкмент
                  20, # Москва
                  20, # Санкт-Петербург
                  22, # Киев
                  16), # Севастополь
         lat = c(58, # Минск
                 43, #  Алма-Ата
                 47, # Нур-Султан
                 40, # Шыкмент
                 62, # Москва
                 72, # Санкт-Петербург
                 43, # Киев
                 52) # Севастополь
)) ->
  subplot

data.frame(region = rep(c("Минск", "Алма-Ата", "Нур-Султан", "Шыкмент", "Москва", "Санкт-Петербург", "Киев", "Севастополь"), 2),
       country = rep(subplot$country, 2),
       lat = c(53.91667,43.25000, 51.13333, 42.30000, 55.75583, 59.95000,  44.60000, 50.45000, subplot$lat),
       long = c(27.55000,76.90000, 71.43333, 69.60000, 37.61778, 30.31667, 33.53333, 30.51667,  subplot$long),
       ratio = 0,
       group = rep(1:8, 2),
       n = 1) ->
  lines

for_plot %>% 
  filter(total >= thrashold) %>% 
  ggplot(aes(long, lat, group = group, fill = ratio)) +
  geom_polygon(aes(color = country), size = 0.4, show.legend = FALSE) +
  coord_map(projection = 'gilbert', orientation = c(90, 0, 50), xlim = c(10, 180))+
  theme_bw()+
  scale_color_manual(values = c("darkorchid3", "darkolivegreen4", "grey50", "royalblue"))+
  scale_fill_gradient(low = "white", high = "darkgoldenrod1")+
  labs(title = title,
       subtitle = "проекция Гилберта, с центром в 50 меридиане", 
       caption = "Г. А. Мороз, 2019. Создано при помощи пакета ggplot2.",
       x = "", y = "") +
  geom_line(data = lines, aes(long, lat, group = region), color = "black", linetype = 2, alpha = 0.4, size = 0.5)+
  theme(legend.position = c(1, 1), 
        legend.justification = c(1.1, 1.1), 
        legend.title = element_blank(),
        plot.caption = element_text(color = rgb(1,250/255,250/255), size = 12),
        panel.background = element_rect(fill = "grey95"),
        legend.background = element_rect(fill = "grey95"),
        panel.grid.major = element_line(size = 0.1, linetype = 'solid',
                                colour = "black"))+
  # fake layer for creating a legend
  geom_label(data = subplot, aes(long, lat, fill = ratio, label = region))+
  geom_label(data = subplot, aes(long, lat, color = country, fill = ratio, label = paste0(region, " ", ratio, "%")), show.legend = FALSE)
}

olivier_plot(question = "carrot", 
             answers = "вареную морковь|нет, не нужно",
             baseline = "вареную морковь",
             title = "Количество процентов ответов 'варёная морковь' vs. 'нет, не нужно'",
             thrashold = 0)

В целом каких-то региональных паттернов не видно. Правда в Украине видны белые пятна в Луганской и Донецкой областях, да и в целом эти и соседние регионы сильно противопоставлены западной Украине, где доли достаточно высокие:

df %>% 
  filter(question == "carrot",
         str_detect(answer, "вареную морковь|нет, не нужно"),
         str_detect(country, "Россия|Украина|Белоруссия|Казахстан")) %>% 
  count(country, region, answer) %>% 
  group_by(region) %>% 
  mutate(total = sum(n),
         ratio = n/total) %>%
  filter(answer == "вареную морковь") %>% 
  arrange(ratio)
df %>% 
  filter(question == "carrot",
         str_detect(answer, "вареную морковь|нет, не нужно"),
         str_detect(country, "Украина")) %>% 
  count(country, region, answer) %>% 
  group_by(region) %>% 
  mutate(total = sum(n),
         ratio = n/total) %>%
  filter(answer == "вареную морковь") %>% 
  full_join(final_df) %>% 
  mutate(long = ifelse(long < 0, long + 360, long)) %>% 
  filter(country == "Украина") %>% 
  ggplot(aes(long, lat, group = group, fill = ratio)) +
  geom_polygon(size = 0.4, color = "black") +
  coord_map(projection = 'gilbert', orientation = c(90, 0, 32))+
  theme_bw()+
  scale_color_manual(values = c("royalblue", "darkorchid4", "darkolivegreen4", "black"))+
  scale_fill_gradient(low = "white", high = "darkgoldenrod1")+
  labs(title = "Доля ответов 'варёная морковь' vs. 'нет, не нужно'",
       subtitle = "проекция Гилберта, с центром в 32 меридиане", 
       caption = "Г. А. Мороз, 2019. Создано при помощи пакета ggplot2.",
       x = "", y = "")+
  theme(legend.position = c(1, 1), 
        legend.justification = c(1.1, 1.1), 
        legend.title = element_blank(),
        plot.caption = element_text(color = rgb(1,250/255,250/255), size = 12),
        panel.background = element_rect(fill = "lightcyan1"),
        panel.grid.major = element_line(size = 0.1, linetype = 'solid',
                                colour = "black"))

На данной карте не хватает Ужгородской области, а так все идет полосами: Луцкая, Львовская, Ивано-Франковская, Тернопольская, Ровненская, Черновецкая и Хмелницкая с высоким процентом, Житомирская, Винница и Одесская с низким процентом, Киевская, Черкасская, Кировоградская и Николаевская с высоким процентом, и все остальные регионы – с низким.

Яйца

На уровне этой переменной не наблюдается вариативности. Вот так вот выглядят данные обрезанные порогом 10:

df %>% 
  filter(question == "egg") %>% 
  count(answer, country, age, gender) %>% 
  filter(n >= trashold) %>% 
  ggplot(aes(age, n, color = answer))+
  geom_point()+
  geom_smooth(se = FALSE)+
  facet_grid(country~gender, scales = "free_y")

Огурцы

df %>% 
  filter(question == "cucumber") %>% 
  count(answer, country, age, gender) %>% 
  filter(n >= trashold) %>% 
  ggplot(aes(age, n, color = answer))+
  geom_point()+
  geom_smooth(se = FALSE)+
  facet_grid(country~gender, scales = "free_y")

Видимо, можно отбросить ответы “нет, не нужно”, и “все равно какие”. Попробуем свести дихотомию до двух членов: свежие vs не свежие.

df %>% 
  mutate(answer = str_replace(answer, "маринованные корнишоны|маринованные огурцы|соленые огурцы", "маринованные/соленные огурцы")) ->
  df

olivier_plot(question = "cucumber", 
             answers = "маринованные/соленные огурцы|обычные свежие огурцы",
             baseline = "маринованные/соленные огурцы",
             title = "Количество процентов ответов 'обычные свежие огурцы' vs. остальные",
             thrashold = 0)

Не вижу ареальных паттернов.

Лук

df %>% 
  filter(question == "onion") %>% 
  count(answer, country, age, gender) %>% 
  filter(n >= trashold) %>% 
  ggplot(aes(age, n, color = answer))+
  geom_point()+
  geom_smooth(se = FALSE)+
  facet_grid(country~gender, scales = "free_y")

На графике мы видим, что большинство людей считает, что лук не нужен, но есть значительная доля людей, которая в Оливье лук кладет:

df %>% 
  mutate(answer = ifelse(question == "onion" & answer != "нет, не нужно", "лук", answer)) ->
  df
  
olivier_plot(question = "onion", 
             answers = "нет, не нужно|лук",
             baseline = "лук",
             title = "Количество процентов ответов 'лук' vs. 'не нужен лук'",
             thrashold = 0)

Что касается лука, здесь не видно никаких региональных параметров, кроме Украины, в которой встречаются регионы, где чаще всего кладут лук в Оливье (темные области), и где реже всего его кладут (светлые области). Западная и Восточная Украины?

Горошек

df %>% 
  filter(question == "peas") %>% 
  count(answer, country, age, gender) %>% 
  filter(n >= trashold-1) %>% 
  ggplot(aes(age, n, color = answer))+
  geom_point()+
  geom_smooth(se = FALSE)+
  facet_grid(country~gender, scales = "free_y")

Свежий горошек или консервированный/маринованный?

olivier_plot(question = "peas", 
             answers = "маринованный горошек|свежий зеленый горошек",
             baseline = "маринованный горошек",
             title = "Количество процентов ответов 'маринованный/консервированный горошек' vs. 'свежий горошек'",
             thrashold = 0)

На Украине чаще используют маринованный/консервированный горошек, но в целом не так уж и отличается от остальных.

Яблоки

На уровне этой переменной не наблюдается вариативности. Вот так вот выглядят данные обрезанные порогом 10:

df %>% 
  filter(question == "apple") %>% 
  count(answer, country, age, gender) %>% 
  filter(n >= trashold) %>% 
  ggplot(aes(age, n, color = answer))+
  geom_point()+
  geom_smooth(se = FALSE)+
  facet_grid(country~gender, scales = "free_y")

Зелень

df %>% 
  filter(question == "greens") %>% 
  count(answer, country, age, gender) %>% 
  filter(n >= trashold) %>% 
  ggplot(aes(age, n, color = answer))+
  geom_point()+
  geom_smooth(se = FALSE)+
  facet_grid(country~gender, scales = "free_y")

Здесь видны два паттерна: люди с зеленью и остальные. Объединим в одну группу ответы, содержащие петрушку и зелень, и противопоставим им ответы без зелени:

df %>% 
  filter(!str_detect(answer, "чеснок|стручковый лук")) %>% 
  mutate(answer = ifelse(str_detect(answer, "петрушка|укроп"), "зелень",answer)) -> 
  df

olivier_plot(question = "greens", 
             answers = "зелень|нет, не нужно",
             baseline = "зелень",
             title = "Количество процентов ответов 'зелень' vs. 'без зелени'",
             thrashold = 0)

На этой карте видно, что, видимо зелень принято класть в Оливье в России и Казахстане – именно Белорусь и Украина обладают самыми светлыми значениями, т. е. совсем не кладут зелень. Странным образом, достаточно нетипичное значение имеет Нур-Султан, достаточно сильно выделяясь на фоне остального Казахстана.

Оливки маслины…

На уровне этой переменной не наблюдается вариативности. Вот так вот выглядят данные обрезанные порогом 10:

df %>% 
  filter(question == "specials") %>% 
  count(answer, country, age, gender) %>% 
  filter(n >= trashold) %>% 
  ggplot(aes(age, n, color = answer))+
  geom_point()+
  geom_smooth(se = FALSE)+
  facet_grid(country~gender, scales = "free_y")

Мясо

df %>% 
  filter(question == "meat_fish") %>% 
  count(answer, country, age, gender) %>% 
  filter(n >= trashold) %>% 
  ggplot(aes(age, n, color = answer))+
  geom_point()+
  geom_smooth(se = FALSE)+
  facet_grid(country~gender, scales = "free_y")

Не знаю, что делать… Вроде колбаса всех побеждает, но есть много любителей положить что-нибудь другое.

Приправы

df %>% 
  filter(question == "spice") %>% 
  count(answer, country, age, gender) %>% 
  filter(n >= trashold) %>% 
  ggplot(aes(age, n, color = answer))+
  geom_point()+
  geom_smooth(se = FALSE)+
  facet_grid(country~gender, scales = "free_y")

Необычный случай, ответы здесь совсем невзаимоисключающие, так что этот параметр я бы выкинул.

Заправка

На уровне этой переменной почти не наблюдается вариативности. Вот так вот выглядят данные обрезанные порогом 10:

df %>% 
  filter(question == "seasoning") %>% 
  count(answer, country, age, gender) %>% 
  filter(n >= trashold) %>% 
  ggplot(aes(age, n, color = answer))+
  geom_point()+
  geom_smooth(se = FALSE)+
  facet_grid(country~gender, scales = "free_y")

Вроде майонез всех побеждает, но есть какое-то количестов любителей положить что-нибудь другое.

Всякие другие параметры

Вроде все паттерны одинаковы у мужчин и женщин, иерархия частотности ответов совпадает для любого возраста, для всех ингредиентов (т. е. нет перекрещивающихся линий на графиках с возрастом и полом).